Option Explicit
Sub N_Sample027()
    Dim myAr As Variant
    Dim i    As Long
    myAr = Array(Worksheets(1), Now(), Range("a1"), "c", 123)	'}Cw
    For i = 0 To UBound(myAr)
        If IsObject(myAr(i)) Then
            MsgBox "oOAA" & TypeName(myAr(i)) & "C"
        Else
            MsgBox myAr(i) & "äOC"
        End If
    Next
End Sub
